home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 26.zip / BS1 part 26 / Powervisor v1.10b disk1.adf / s / pv / ikey < prev    next >
Text File  |  1991-09-15  |  1KB  |  31 lines
  1. ;Some useful routines
  2. ;Each feature described in this script file can work seperatelly, simply
  3. ;delete the other lines.
  4. ;Note that some of these features are already installed in
  5. ;'s/PowerVisor-startup'
  6.  
  7. ;Install a routine so that PowerVisor restores the history line whenever
  8. ;the command is preceded with a '&'. This is useful when you want to
  9. ;execute a command a few times.
  10. pv 6 'v if(*{pv 12}.b==38,{*{pv 12}.b=32;*({pv 40}+5).b=1},0)'
  11. pv 16 'v if(*({pv 40}+5).b==1,{*{pv 12}.b=38},0)'
  12.  
  13. ;Redefine the arrow up and arrow down for history.
  14. ;The cursor goes to the end of the stringgadget line each time you press
  15. ;arrow up or down.
  16. attach 'pv 15 30000' 04c 0 inv
  17. attach 'pv 15 30000' 04d 0 inv
  18.  
  19. ;Beep if user snaps something
  20. pv 22 '{pv 24 600 20;v 1}'
  21.  
  22. ;Delete the current history line with right-alt delete
  23. attach '{pv 26 \({pv 12},%s);pv 4;pv 5}' 046 32 inv
  24.  
  25. ;Assign the Right-shift up key to a searchhistory macro
  26. ;Assign the Left-shift up key to the same macro
  27. _a={-resident s:pv/SearchHist}
  28. attach 'go \(_a)' 04c 2 inv
  29. attach 'go \(_a)' 04c 1 inv
  30. remvar _a
  31.